home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / graphics / fxforge / harmonics mixer < prev    next >
Text File  |  1999-06-15  |  816b  |  26 lines
  1. Category: Filter Factory Gallery V
  2. Title: Harmonics Mixer...
  3. Author: mwvdlee@open.net
  4. Copyright: Not-Really-Copyright © 1998 Martijn W. van der Lee.
  5.  
  6. ctl[0]: Frequency:
  7. ctl[1]: Amplitude 1:
  8. ctl[2]: Amplitude 2:
  9. ctl[3]: Amplitude 3:
  10. ctl[4]: Amplitude 4:
  11. ctl[5]: Amplitude 5:
  12. ctl[6]:Amplitude 6:
  13. ctl[7]: Amplitude 7:
  14. val[0]: 2
  15. val[1]: 255
  16. val[2]: 220
  17. val[3]: 185
  18. val[4]: 150
  19. val[5]: 115
  20. val[6]: 80
  21. val[7]: 45
  22. R:put(max(255,ctl(1)+ctl(2)+ctl(3)+ctl(4)+ctl(5)+ctl(6)+ctl(7)),0),put(ctl(0)*1024,1),put(((sin(512+x*get(1)/X)*ctl(1))+(sin(512+x*2*get(1)/X)*ctl(2))+(sin(512+x*3*get(1)/X)*ctl(3))+(sin(512+x*4*get(1)/X)*ctl(4))+(sin(512+x*5*get(1)/X)*ctl(5))+(sin(512+x*6*get(1)/X)*ctl(6))+(sin(512+x*7*get(1)/X)*ctl(7)))/get(0),2),(y-Y/2)*1024/Y>get(2)?255:0
  23. G:(y-Y/2)*1024/Y>get(2)?255:0
  24. B:(y-Y/2)*1024/Y>get(2)?255:0
  25. A:a
  26.